demand /string
supplied-by
\ Add char to start of `c-addr u` and return remaining space.
: c++ ( c-addr u char -- c-addr' u' )
	>r 2dup 0= abort" buffer overflow"
	r> swap c! 1 /string ;
